home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / shuffle / global.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-23  |  1.9 KB  |  63 lines
  1. '============================================
  2. ' SHUFFLE CD PLAYER EXAMPLE
  3. ' Copyright(c) 1994 Larry Robert Seater
  4. '============================================
  5. ' Disclaimer of Warranty:
  6.  
  7. ' This software and the accompanying files are 'as is'
  8. ' and without warranties as to performance of the
  9. ' software and the accompanying files or any other
  10. ' warranties whether expressed or implied.
  11. ' No warranty of fitness for a particular purpose
  12. ' is offered.
  13. '
  14. ' You may not sell this software or it's source code.
  15. ' You may use this code in any way you find useful.
  16. ' Enough said!
  17. '
  18. ' This is an example of some things I've learned
  19. ' about the MCI.VBX custom control from the Visual
  20. ' Basic Professional Edition.  This is written in
  21. ' VB Pro 3.0 and needs to be run (I think) on the
  22. ' same.  There may be a few bugs, but I knocked it
  23. ' out in a couple of hours.  There are a few other
  24. ' tricks(?) in the code too.
  25. '
  26. ' Please if you have any comments (good or bad) or
  27. ' any suggestions, or want to trade code write me or
  28. ' E-Mail me at:
  29. ' AOL: LarryS8302
  30. '
  31. ' Land Mail: Larry Seater
  32. '            2124 NE 36th Av.
  33. '            Portland, OR 97212
  34. '
  35. ' Thanks!
  36. '
  37. ' These constants are defined in mmsystem.h.
  38. Global Const MCIERR_INVALID_DEVICE_ID = 30257
  39. Global Const MCIERR_DEVICE_OPEN = 30263
  40. Global Const MCIERR_CANNOT_LOAD_DRIVER = 30266
  41. Global Const MCIERR_UNSUPPORTED_FUNCTION = 30274
  42. Global Const MCIERR_INVALID_FILE = 30304
  43. Global Const MCI_MODE_NOT_OPEN = 524
  44. Global Const MCI_MODE_PLAY = 526
  45. Global Const MCI_MODE_STOP = 525
  46. Global Const MCI_MODE_PAUSE = 529
  47. Global Const MCI_MODE_SEEK = 528
  48. ' MCI Time formats that support CD Audio.
  49. Global Const MCI_FORMAT_MILLISECONDS = 0
  50. Global Const MCI_FORMAT_MSF = 2
  51. Global Const MCI_FORMAT_TMSF = 10
  52.  
  53. ' API Declaration.
  54. Declare Function GetFocus Lib "User" () As Integer
  55.  
  56. '*** Global Variables ***
  57. Global DialogCaption As String
  58. Global Trk
  59. Global TotalTrk
  60. Global Flag
  61. Global NewCount
  62.  
  63.